perm filename DBL.F4[1,LCS] blob sn#502395 filedate 1980-03-20 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		DIMENSION I(100)
C00003 ENDMK
CāŠ—;
	DIMENSION I(100)
	DATA Z/' '/
	TYPE 1
1	FORMAT(' INPUT?  '$)
	ACCEPT 2,NAME
2	FORMAT(A5)
	TYPE 3
3	FORMAT(' OUTPUT  '$)
	ACCEPT 2,N2
	CALL IFILE(1,NAME)
	CALL OFILE(20,N2)
4	FORMAT(100A1)
5	READ(1,4,END=8)I
	DO 6 K=100,1,-1
6	IF(I(K).NE.' ')GO TO 7
7	WRITE(20,4)(I(J),J=1,K)
	WRITE(20,4),Z
	GO TO 5
8	END